open(BUFF,"snps_input") or die " no file exists\n";
#open(BUFF,"snps_0_3.txt") or die " no file exists\n";
while(<BUFF>)
{
	chomp($_);
	$hash{$_} = 1;
}
open(BUFF,"chr20.one.phased.impute2_fil_chr20") or die " no file exists\n";
#$line=<BUFF>;
#print $line."\n";	
while($line=<BUFF>)
{
	chomp($line);
	@array = split(" ",$line);
	if(exists($hash{$array[1]}))
	{
		print $line."\n";
	}	
}
